﻿Public Class MuhOdemeEmriListe
	Inherits ProcessReport

	Dim aralik As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Ödeme Emirleri Listesi", "Tarih aralığını girin.")
				aralik = AddDateRange("Tarih", "nl", YMD(Today), YMD(Today))
			Case EventType.ValidateForm
				Rs = Muhasebe.Odeme.Liste(Remote, aralik(1).get, aralik(2).get)
				Filter.Add("Tarihe göre", "tarih", "")
				Filter.Add("Onay durumuna göre", "onay", "E:Onaylanmış,H:Onaylanmamış")
				Filter.Add("Kullanıcıya göre", "kaykul", "")
				Filter.Recordset = Rs
				e.Result = True
			Case EventType.PageHeader
				Report.PrintReportInfo("MUHASEBE ÖDEME EMİRLERİ LİSTESİ", "TARİH: " & FormatDateInterval(aralik(1).Get, aralik(2).Get))
				Report.SetColumns("Tarih;No.;Açıklama;Tutar;Onay;Kull.", "2;2;7;3;1;1", "d;c;l;m;c;c", "--")
			Case EventType.ReportDetail
				For Each Row In Rs
					Report.Print(Rs("tarih"), Rs("eno"), Rs("alacakli"), Rs("odemik"), Rs("onay"), Rs("kaykul"))
				Next
		End Select
	End Sub

End Class
